(define (fizzBuzz limit)
        (fizz limit 1 '("<ol"))
)

(define (fizz limit n ns)
        (
         if (< n limit)
            (fizz limit (+ n 1) (cons (app n) ns))
            (reverse (cons "</ol>" ns))
         )
)

(define (app x)
        (if 
           (and 
                (= (remainder x 3) 0) 
                (= (remainder x 5) 0))
            "<li>Fizz Buzz</li>"
            (if 
               (= 
                  (remainder x 3) 0) 
               "<li>Fizz</li>"
               (if 
                   (= 
                      (remainder x 5) 0) 
                   "<li>Buzz</li>"
                   "<li></li>"))))

(fizzBuzz 16)
